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Figure 12A 
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Begin RoutePacket 0 
Define L of type Address; 

Define next_channel, input_channel of type Channel; 

Define msg of type Message; 

Import messageQueue of type Queue; 

forever 

if length of (messageQueue) > O then 

dequeueMessage (messageQueue, (msg, inputjrhannel)); 

if msg.status = Returned then 

— this message has been returned. 
handleReturnedMessage (msg, inputjrhannel); 

else 

— Pass message on to next node, 
set L := msg.L 

if L = my_L then 

— Packet has arrived - terminates here, 

ProcessCell (msg.cell); 

else 

set next_channel ;= decideNextChannel (L,myJL); 

if next_channel = NoBestChannel then 
set msg.status := Returned; 
set next_channel inputjrhannel; 

end if 

SendPacketToChannel (msg, next_channel); 

end if 

end if 

end if 

end 

end RoutePacket. 
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Begin decideNextChannei (Address L, Address my_L) of type Channel 
define hop of type Address; 

define weightedChannelSum, sum, weightedChannel of type Reai Number; 
define bestChannel of type Channel; 
define j, unuseableChannels of type Integer; 

set hop := L - my_L; 

set weightedChannelSum := 0.0; 

set sum r= 0,0; 

for j := 0 to Length of(hop) 

{ . 

if ChannelUtilisation (j) > MaximumChannelUtilisation then 

set unuseableChannels := unuseableChannels + 1; 

end if 

set weightedChannelSum:^ weightedChannelSum+hopQ]*j/ChanneIUtilisation (j); 
set sum := sum ^ hop [j] / ChannelUtilisation [j]; 

} 

if unuseableChannels = ActiveChannels then 

— message cannot be forwarded from this node must be handed back to sender. 

return NoBestChannel; 
end if 

set weightedChannel := weightedChannelSum / sum; 

set bestChannel :» MapWeightedChannelToBestChannel (weightedChannel); 

return bestChannel; 
end decideNextChannei 
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